home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / alt-packages.scm < prev    next >
Text File  |  1995-10-13  |  4KB  |  167 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3.  
  4. ; This configuration file provides alternative implementations of the
  5. ; low, run-time, run-time-internals structures.  Cf. the interface
  6. ; definitions in packages.scm.
  7.  
  8. ; Run-time structures assumed to be inherited from somewhere: (none of
  9. ; these is used by the linker)
  10. ;  conditions
  11. ;  continuations
  12. ;  display-conditions
  13. ;  exceptions
  14. ;  fluids-internal
  15. ;  methods
  16. ;  meta-methods
  17. ;  interrupts
  18. ;  low-level
  19. ;  more-types
  20. ;  number-i/o
  21. ;  ports
  22. ;  reading
  23. ;  records-internal
  24. ;  scheme-level-2-internal
  25. ;  wind
  26. ;  writing
  27.  
  28. ; --------------------
  29. ; low
  30.  
  31. ; Features, assumed inherited:
  32. ;  ascii
  33. ;  bitwise
  34. ;  code-vectors
  35. ;  features
  36. ;  signals
  37. ; Unimplemented (you'll need a VM to do these):
  38. ;  vm-exposure
  39. ; Defined in alt/low-packages.scm:
  40. ;  escapes
  41. ;  primitives
  42.  
  43. (define-structure scheme-level-0 scheme-level-0-interface
  44.   (open scheme))
  45.  
  46. (define-structure escapes escapes-interface ;cf. alt/low-packages.scm
  47.   (open scheme-level-2 define-record-types signals)
  48.   (files (alt escape)))
  49.  
  50. (define-structures ((low-level low-level-interface)
  51.             (source-file-names (export (%file-name% :syntax)))
  52.             (structure-refs (export (structure-ref :syntax))))
  53.   (open scheme-level-2 signals)
  54.   (files (alt low)))
  55.  
  56. (define-structure closures closures-interface
  57.   (open scheme-level-1 records)
  58.   (files (alt closure)))
  59.  
  60. (define-structure locations locations-interface
  61.   (open scheme-level-2 signals)
  62.   (files (alt locations)))
  63.  
  64. (define-structure loopholes (export (loophole :syntax))
  65.   (open scheme-level-2)
  66.   (files (alt loophole)))
  67.  
  68. (define-structure silly (export reverse-list->string)
  69.   (open scheme-level-1)
  70.   (files (alt silly)))
  71.  
  72. (define-structure write-images (export write-image)
  73.   (open scheme-level-2
  74.     tables            ;Forward reference
  75.     features bitwise ascii enumerated
  76.     architecture
  77.     templates
  78.     closures
  79.     signals)
  80.   (files (link data)
  81.      (link transport)
  82.      (link write-image)))
  83.  
  84. ; --------------------
  85. ; run-time (generally speaking, things needed by the linker)
  86.  
  87. ; Same as in rts-packages.scm:
  88. (define-structure architecture architecture-interface
  89.   (open scheme-level-1 signals enumerated)
  90.   (files (rts arch)))
  91.  
  92. ; Use the non-bummed version!
  93. (define-structure bummed-define-record-types define-record-types-interface
  94.   (open scheme-level-1 records)
  95.   (files (rts jar-defrecord)))
  96.  
  97. ; Same as in rts-packages.scm:
  98. (define-structure enumerated enumerated-interface
  99.   (open scheme-level-1 signals)
  100.   (files (rts enum)
  101.      (rts defenum scm)))
  102.  
  103. (define-structure fluids fluids-interface
  104.   (open scheme-level-1 signals)
  105.   (files (alt fluid)))
  106.  
  107. (define-structures ((scheme-level-2 scheme-level-2-interface)
  108.             (scheme-level-1 scheme-level-1-interface))
  109.   (open scheme))
  110.  
  111. (define-structure templates templates-interface
  112.   (open scheme-level-1)
  113.   (files (alt template)
  114.      (rts template)))
  115.  
  116. (define-structure util util-interface
  117.   (open scheme-level-1)
  118.   (files (rts util)))
  119.  
  120. (define-structure weak weak-interface
  121.   (open scheme-level-1 signals)
  122.   (files (alt weak)
  123.      (rts population)))
  124.  
  125.  
  126. ; --------------------
  127. ; run-time internals (generally speaking, things not needed by the linker)
  128.  
  129. ; * = mentioned in more-packages.scm
  130. ;   conditions
  131. ;   continuations
  132. ;   display-conditions
  133. ; * exceptions
  134. ; * fluids-internal
  135. ;   methods
  136. ;   meta-methods
  137. ;   interrupts
  138. ;   low-level
  139. ;   more-types
  140. ; * number-i/o
  141. ; * ports
  142. ; * reading
  143. ; * records-internal
  144. ;   scheme-level-2-internal
  145. ; * wind
  146. ;   writing
  147.  
  148. (define-structure wind wind-interface
  149.   (open scheme-level-2)
  150.   (files (alt reroot)))
  151.  
  152. ; --------------------
  153. ; These don't really belong here, but I sure don't know where they
  154. ; ought to go.
  155.  
  156. (define-structure environments (export *structure-ref)
  157.   (open )                ;Assume flatloading
  158.   (files (alt environments)))
  159.  
  160.  
  161. ; Procedure annotations
  162.  
  163. (define-structure annotations
  164.     (export annotate-procedure procedure-annotation)
  165.   (open scheme-level-1)
  166.   (files (alt annotate)))
  167.